home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / DSGNRC.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-28  |  11.5 KB  |  441 lines
  1. 10  'DSGNRC - Resistor/Capacitor Circuits  22 NOV 95 rev. 27 SEP 96
  2. 20  CLS:KEY OFF:COLOR 7,0,1
  3. 30  COMMON EX$
  4. 40  R$="\/\/\"
  5. 50  C$="SOUNDSOUNDUSINGSOUNDSOUND"
  6. 60  L$="SOUNDORORORSOUND"
  7. 70  '
  8. 80  '.....start
  9. 90  CLS:D=0:N=0
  10. 100  IF CKT$=""THEN CLS:RUN"dsgnmenu"
  11. 110  A$=LEFT$(CKT$,1):B$=RIGHT$(CKT$,1)
  12. 120  IF CKT$="RC"THEN AA$=R$:BB$=C$
  13. 130  IF CKT$="RL"THEN AA$=R$:BB$=L$
  14. 140  IF CKT$="LC"THEN AA$=L$:BB$=C$
  15. 150  PRINT T$
  16. 160  PRINT UL$;
  17. 170  K=23:LOCATE 3:GOSUB 280
  18. 180  K=42:LOCATE 3:GOSUB 400
  19. 190  PRINT UL$;
  20. 200  GOTO 520    'start
  21. 210  '
  22. 220  '.....invalid input
  23. 230  BEEP:COLOR 0,7
  24. 240  PRINT " YOUR DATA INPUT IS NOT VALID ";
  25. 250  COLOR 7,0:PRINT "....Press any key to start over...."
  26. 260  IF INKEY$=""THEN 260 ELSE 80
  27. 270  '
  28. 280  '.....series diagram
  29. 290  COLOR 0,7
  30. 300  LOCATE ,K:PRINT "                 "
  31. 310  LOCATE ,K:PRINT "      ";A$;"     ";B$;"    "
  32. 320  LOCATE ,K:PRINT " SOUNDSOUNDSOUND"+AA$+"SOUND"+BB$+"SOUND "
  33. 330  LOCATE ,K:PRINT "       I-DEFDBL       "
  34. 340  LOCATE ,K:PRINT "                 "
  35. 350  LOCATE ,K:PRINT " CALLDEFSNGSOUNDSOUNDSOUNDSOUND V SOUNDSOUNDSOUNDSOUNDDEFDBLCALL "
  36. 360  LOCATE ,K:PRINT "   S E R I E S   "
  37. 370  COLOR 7,0
  38. 380  RETURN
  39. 390  '
  40. 400  '.....parallel diagram
  41. 410  COLOR 0,7
  42. 420  LOCATE ,K:PRINT "        ";A$;"        "
  43. 430  LOCATE ,K:PRINT "   VARPTRSOUNDSOUND"+AA$+"SOUNDSOUNDCOLOR   "
  44. 440  LOCATE ,K:PRINT " SOUNDSOUND<0xB4!>   I-DEFDBL   BLOADSOUNDSOUND "
  45. 450  LOCATE ,K:PRINT "   CLSSOUNDSOUND"+BB$+"SOUNDSOUND'   "
  46. 460  LOCATE ,K:PRINT "        ";B$;"        "
  47. 470  LOCATE ,K:PRINT " CALLDEFSNGSOUNDSOUNDSOUNDSOUND V SOUNDSOUNDSOUNDSOUNDDEFDBLCALL "
  48. 480  LOCATE ,K:PRINT " P A R A L L E L "
  49. 490  COLOR 7,0
  50. 500  RETURN
  51. 510  '
  52. 520  PRINT " Press number in ( ) for:"
  53. 530  PRINT UL$;
  54. 540  IF CKT$="LC"THEN D$="/Resonance"ELSE D$=""
  55. 550  IF CKT$="LC"THEN E$="-"ELSE E$="Series Phase Angle"
  56. 560  PRINT "  (1) Impedance"+D$
  57. 570  PRINT "  (2) Ohm's Law"
  58. 580  PRINT "  (3) "+E$
  59. 590  PRINT "  (4) Series Voltage Divider"
  60. 600  PRINT
  61. 610  PRINT "  (0) QUIT"
  62. 620  Z$=INKEY$:IF Z$=""THEN 620
  63. 630  N=VAL(Z$)
  64. 640  IF CKT$="LC"AND N=3 THEN 220
  65. 650  IF N=1 THEN 720
  66. 660  IF N=2 THEN 1130
  67. 670  IF N=3 THEN 2250
  68. 680  IF N=4 THEN 2610
  69. 690  IF N=0 THEN CLS:CHAIN"dsgnmenu"
  70. 700  GOTO 620
  71. 710  '
  72. 720  CLS '.....impedance / resonance
  73. 730  IF CKT$="LC"THEN PRINT TAB(30)"IMPEDANCE / RESONANCE":GOTO 750
  74. 740  PRINT TAB(36)"IMPEDANCE"
  75. 750  PRINT UL$;
  76. 760  LOCATE 3:K=23:GOSUB 280
  77. 770  LOCATE 3:K=42:GOSUB 400
  78. 780  PRINT UL$;
  79. 790  COLOR 0,7
  80. 800  IF CKT$="LC"THEN 820
  81. 810  PRINT " Enter Frequency, ";A$;", and ";B$;" ":GOTO 830
  82. 820  PRINT " Enter Frequency, C and L for Impedance, or any two for Resonance "
  83. 830  COLOR 7,0
  84. 840  PRINT
  85. 850  GOSUB 3310  'inputs
  86. 860  IF CKT$="RC"THEN X=1/(2*PI*F*C):XC=X:GOSUB 910
  87. 870  IF CKT$="RL"THEN X=2*PI*F*L:XL=X:GOSUB 910
  88. 880  IF CKT$="LC"THEN GOSUB 1000
  89. 890  GOTO 3440   'screen print
  90. 900  '
  91. 910  '.....RC & RL
  92. 920  IF CKT$="RC"AND F*R*C=0 THEN 220
  93. 930  IF CKT$="RL"AND F*R*L=0 THEN 220
  94. 940  SIMP=SQR(R^2+X^2)      'series impedance
  95. 950  SPA=ATN(X/R)*180/PI    'series phase angle
  96. 960  PIMP=R*X/SQR(R^2+X^2)  'parallel impedance
  97. 970  PPA=ATN(R/X)*180/PI    'parallel phase angle
  98. 980  RETURN
  99. 990  '
  100. 1000  '.....LC
  101. 1010  IF F*C*L=0 THEN 1070
  102. 1020  Y=2*PI*F*L:XL=Y
  103. 1030  X=1/(2*PI*F*C):XC=X
  104. 1040  D=ABS(Y-X)
  105. 1050  SIMP=D:PIMP=Y*X/D:IF D=0THEN PIMP=0
  106. 1060  GOTO 1110
  107. 1070  IF F=0 THEN F=1/(2*PI*SQR(L*C)):GOTO 1100
  108. 1080  IF C=0 THEN C=1/(F^2*4*PI^2*L):GOTO 1100
  109. 1090  IF L=0 THEN L=1/(F^2*4*PI^2*C):GOTO 1100
  110. 1100  XC=1/(2*PI*F*C):XL=2*PI*F*L
  111. 1110  RETURN
  112. 1120  '
  113. 1130  CLS '.....ohm's law
  114. 1140  PRINT TAB(36)"OHM'S LAW"
  115. 1150  PRINT UL$;
  116. 1160  LOCATE 3:K=23:GOSUB 280
  117. 1170  LOCATE 3:K=42:GOSUB 400
  118. 1180  PRINT UL$;
  119. 1190  IF CKT$="LC"THEN 2040
  120. 1200  COLOR 0,7
  121. 1210  PRINT " Required data are Frequency, ";A$;", ";B$;", V and I. Enter 0 for";
  122. 1220  PRINT " "
  123. 1230  PRINT " unknown value and actual values for all the others.     "
  124. 1240  COLOR 7,0
  125. 1250  PRINT
  126. 1260  GOSUB 3310   'inputs
  127. 1270  IF F*C<>0 THEN X=1/(2*PI*F*C):XC=X
  128. 1280  IF F*L<>0 THEN X=2*PI*F*L:XL=X
  129. 1290  INPUT " ENTER: Voltage V (peak).............................(volts)";V
  130. 1300  INPUT " ENTER: Current I (peak)............................. (amps)";A
  131. 1310  COLOR 0,7
  132. 1320  '
  133. 1330  LOCATE CSRLIN,8
  134. 1340  PRINT " Press 1 for Series circuit, 2 for Parallel circuit....."
  135. 1350  COLOR 7,0
  136. 1360  Z$=INKEY$:IF Z$=""THEN 1360
  137. 1370  GOSUB 1490
  138. 1380  N=VAL(Z$)
  139. 1390  IF N=1 AND CKT$="RC"THEN GOSUB 1520:GOTO 1430
  140. 1400  IF N=2 AND CKT$="RC"THEN GOSUB 1650:GOTO 1430
  141. 1410  IF N=1 AND CKT$="RL"THEN GOSUB 1780:GOTO 1430
  142. 1420  IF N=2 AND CKT$="RL"THEN GOSUB 1910:GOTO 1430
  143. 1430  CVPA=D*180/PI
  144. 1440  W=V*A*COS(D)/2
  145. 1450  XC=1/(2*PI*F*C)
  146. 1460  XL=2*PI*F*L
  147. 1470  GOTO 3440
  148. 1480  '
  149. 1490  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  150. 1500  RETURN
  151. 1510  '
  152. 1520  '.....RC series
  153. 1530  LOCATE 3:K=32:GOSUB 280
  154. 1540  PRINT UL$;
  155. 1550  IF V=0 THEN V=A*SQR(R^2+X^2)
  156. 1560  IF A=0 THEN A=V/SQR(R^2+X^2)
  157. 1570  IF R=0 AND V<A*X THEN 2220
  158. 1580  IF R=0 THEN R=SQR(V^2-A^2*X^2)/A
  159. 1590  IF(C=0 OR F=0)AND V<=A*R THEN 2220
  160. 1600  IF C=0 THEN C=A/(2*PI*F*SQR(V^2-A^2*R^2))
  161. 1610  IF F=0 THEN F=A/(2*PI*C*SQR(V^2-A^2*R^2))
  162. 1620  D=ATN(1/(2*PI*F*C*R))
  163. 1630  RETURN
  164. 1640  '
  165. 1650  '.....RC parallel
  166. 1660  LOCATE 3:K=32:GOSUB 400
  167. 1670  PRINT UL$;
  168. 1680  IF V=0 THEN V=A*R*X/SQR(R^2+X^2)
  169. 1690  IF A=0 THEN A=V*SQR(R^2+X^2)/(R*X)
  170. 1700  IF R=0 AND A*X<=V THEN 2220
  171. 1710  IF R=0 THEN R=V*X/SQR(A^2*X^2-V^2)
  172. 1720  IF (C=0 OR F=0) AND A*R<V THEN 2220
  173. 1730  IF C=0 THEN C=SQR(A^2*R^2-V^2)/(2*PI*F*V*R)
  174. 1740  IF F=0 THEN F=SQR(A^2*R^2-V^2)/(2*PI*C*V*R)
  175. 1750  D=ATN(R*2*PI*F*C)
  176. 1760  RETURN
  177. 1770  '
  178. 1780  '.....RL series
  179. 1790  LOCATE 3:K=32:GOSUB 280
  180. 1800  PRINT UL$;
  181. 1810  IF V=0 THEN V=A*SQR(R^2+X^2)
  182. 1820  IF A=0 THEN A=V/SQR(R^2+X^2)
  183. 1830  IF R=0 AND V<A*X THEN 2220
  184. 1840  IF R=0 THEN R=SQR(V^2-A^2*X^2)/A
  185. 1850  IF(L=0 OR F=0)AND V<=A*R THEN 2220
  186. 1860  IF L=0 THEN L=SQR(V^2-A^2*R^2)/(A*2*PI*F)
  187. 1870  IF F=0 THEN F=SQR(V^2-A^2*R^2)/(A*2*PI*L)
  188. 1880  D=ATN(1/(2*PI*F*L/R))
  189. 1890  RETURN
  190. 1900  '
  191. 1910  '.....RL parallel
  192. 1920  LOCATE 3:K=32:GOSUB 400
  193. 1930  PRINT UL$;
  194. 1940  IF V=0 THEN V=A*R*X/SQR(R^2+X^2)
  195. 1950  IF A=0 THEN A=V*SQR(R^2+X^2)/(R*X)
  196. 1960  IF R=0 AND A*X<=V THEN 2220
  197. 1970  IF R=0 THEN R=V*X/SQR(A^2*X^2-V^2)
  198. 1980  IF (L=0 OR F=0) AND A*R<V THEN 2220
  199. 1990  IF L=0 THEN L=V*R/(2*PI*F*SQR(A^2*R^2-V^2))
  200. 2000  IF F=0 THEN F=V*R/(2*PI*L*SQR(A^2*R^2-V^2))
  201. 2010  D=ATN(R/(2*PI*F*L))
  202. 2020  RETURN
  203. 2030  '
  204. 2040  '.....LC series/parallel
  205. 2050  COLOR 0,7
  206. 2060  PRINT " Enter Frequency and values of C and L "
  207. 2070  COLOR 7,0:PRINT
  208. 2080  GOSUB 3310
  209. 2090  IF F*C*L=0 THEN 220
  210. 2100  Y=2*PI*F*L:XL=Y
  211. 2110  X=1/(2*PI*F*C):XC=X
  212. 2120  D=ABS(Y-X)
  213. 2130  COLOR 0,7:PRINT " Enter value for either V or I, and 0 for the other "
  214. 2140  COLOR 7,0
  215. 2150  INPUT " ENTER: Voltage V...........................................";V
  216. 2160  IF V THEN 2180
  217. 2170  INPUT " ENTER: Current I...........................................";A
  218. 2180  IF V=0THEN VS=A*D:VP=A*Y*X/D
  219. 2190  IF A=0 THEN AS=V/D:AP=V*D/(Y*X)
  220. 2200  GOTO 3440
  221. 2210  '
  222. 2220  COLOR 0,7:PRINT " You may have entered some improbable values "
  223. 2230  COLOR 7,0:PRINT :GOTO 220
  224. 2240  '
  225. 2250  CLS '.....voltage phase angle
  226. 2260  PRINT TAB(31)"VOLTAGE PHASE ANGLE"
  227. 2270  PRINT UL$;
  228. 2280  LOCATE 3:K=32:GOSUB 280
  229. 2290  PRINT UL$;
  230. 2300  COLOR 0,7
  231. 2310  PRINT " Required data are Frequency, ";A$;", ";B$;" & phase angle. ";
  232. 2320  PRINT "Enter 0 for the "
  233. 2330  PRINT " component you want to compute and correct values for the other 3."
  234. 2340  PRINT
  235. 2350  COLOR 7,0
  236. 2360  GOSUB 3310
  237. 2370  IF F*C<>0 THEN X=1/(2*PI*F*C)
  238. 2380  IF F*L<>0 THEN X=2*PI*F*L
  239. 2390  IF CKT$="RC"THEN 2400 ELSE 2420
  240. 2400  INPUT " ENTER: Capacitance voltage phase angle..................(<UNK! {00F8}>)";D
  241. 2410  GOTO 2430
  242. 2420  INPUT " ENTER: Inductance voltage phase angle...................(<UNK! {00F8}>)";D
  243. 2430  D=-ABS(D/(180/PI))
  244. 2440  IF D=0 THEN D=ATN(X/R)-PI/2
  245. 2450  IF CKT$="RC"THEN 2470 ELSE 2520
  246. 2460  '
  247. 2470  IF C=0 THEN C=1/(2*PI*F*R*TAN(D+PI/2))
  248. 2480  IF F=0 THEN F=1/(2*PI*C*R*TAN(D+PI/2))
  249. 2490  XC=1/(2*PI*F*C)
  250. 2500  GOTO 2560
  251. 2510  '
  252. 2520  IF L=0 THEN L=R/(2*PI*F*TAN(D+PI/2))
  253. 2530  IF F=0 THEN F=R/(2*PI*L*TAN(D+PI/2))
  254. 2540  XL=2*PI*F*L
  255. 2550  '
  256. 2560  IF R=0 THEN R=X/TAN(D+PI/2)
  257. 2570  LC=-D*180/PI
  258. 2580  RES=D*180/PI+90
  259. 2590  GOTO 3440
  260. 2600  '
  261. 2610  CLS '.....voltage divider computation
  262. 2620  PRINT TAB(33)"VOLTAGE DIVIDER"
  263. 2630  PRINT UL$;
  264. 2640  IF CKT$="LC"THEN 3050
  265. 2650  LOCATE 3:K=32:GOSUB 280
  266. 2660  PRINT UL$;
  267. 2670  COLOR 0,7
  268. 2680  PRINT " Required data are Frequency, ";A$;", ";B$;", V  and the voltage ";
  269. 2690  PRINT "across ";B$". Enter 0  ";
  270. 2700  PRINT " for the component you want to compute and correct values ";
  271. 2710  PRINT "for the other 4."
  272. 2720  COLOR 7,0
  273. 2730  PRINT
  274. 2740  GOSUB 3310
  275. 2750  INPUT " ENTER: Voltage V.....................................(ohms)";V
  276. 2760  IF CKT$="RC"THEN 2780
  277. 2770  IF CKT$="RL"THEN 2910
  278. 2780  INPUT " ENTER: Voltage across capacitance C.................(volts)";N
  279. 2790  X=1/(2*PI*F*C)
  280. 2800  IF N=0 THEN N=V*X/SQR(R^2+X^2)
  281. 2810  IF (R=0 OR C=0 OR F=0) AND V<N THEN 2220
  282. 2820  IF R=0 THEN R=X*SQR(V^2-N^2)/N
  283. 2830  IF C=0 THEN C=SQR(V^2-N^2)/(2*PI*F*R*N)
  284. 2840  IF F=0 THEN F=SQR(V^2-N^2)/(2*PI*C*R*N)
  285. 2850  IF V=0 THEN V=N*SQR(R^2+X^2)/X
  286. 2860  VR=V*R/SQR(R^2+X^2)
  287. 2870  VC=N
  288. 2880  XC=1/(2*PI*F*C)
  289. 2890  GOTO 3440
  290. 2900  '
  291. 2910  INPUT " ENTER: Voltage across inductance L..................(volts)";N
  292. 2920  X=2*PI*F*L
  293. 2930  IF N=0 THEN N=V*X/SQR(R^2+X^2)
  294. 2940  IF R=0 AND V<N THEN 2220
  295. 2950  IF R=0 THEN R=X*SQR(V^2-N^2)/N
  296. 2960  IF F*L=0 AND V<=N THEN 2220
  297. 2970  IF L=0 THEN L=N*R/(2*PI*F*SQR(V^2-N^2))
  298. 2980  IF F=0 THEN F=N*R/(2*PI*L*SQR(V^2-N^2))
  299. 2990  IF V=0 THEN V=N*SQR(R^2+X^2)/X
  300. 3000  VR=V*R/SQR(R^2+X^2)
  301. 3010  VL=N
  302. 3020  XL=2*PI*F*L
  303. 3030  GOTO 3440
  304. 3040  '
  305. 3050  LOCATE 3:K=23:GOSUB 280
  306. 3060  LOCATE 3:K=42:GOSUB 400
  307. 3070  PRINT UL$;
  308. 3080  COLOR 0,7
  309. 3090  PRINT " Enter values for Frequency, ";A$;" and ";B$;", then             "
  310. 3100  PRINT " Enter a value for either V or I, and 0 for the other. "
  311. 3110  COLOR 7,0
  312. 3120  PRINT
  313. 3130  GOSUB 3310
  314. 3140  Y=2*PI*F*L:XL=Y
  315. 3150  X=1/(2*PI*F*C):XC=X
  316. 3160  D=ABS(Y-X)
  317. 3170  INPUT " ENTER: Voltage V (peak).............................(volts)";V
  318. 3180  IF V THEN 3200
  319. 3190  INPUT " ENTER: Current I (peak)..............................(amps)";A
  320. 3200  IF V=0 THEN VS=A*D:VP=A*Y*X/D:H$=" VOLTAGES ":GOTO 3220
  321. 3210  IF A=0 THEN AS=V/D:AP=V*D/(Y*X):H$=" CURRENTS ":GOTO 3220
  322. 3220  PRINT
  323. 3230  COLOR 12
  324. 3240  PRINT " CAUTION! VERY HIGH";H$;"MAY BE PRODUCED AT FREQUENCIES ";
  325. 3250  PRINT "CLOSE TO RESONANCE!"
  326. 3260  COLOR 7
  327. 3270  PRINT TAB(25)"Press any key to continue...."
  328. 3280  IF INKEY$=""THEN 3280
  329. 3290  GOTO 3440
  330. 3300  '
  331. 3310  '.....inputs
  332. 3320  INPUT " ENTER: Frequency......................................(MHz)";F
  333. 3330  F=F*10^6
  334. 3340  IF CKT$="LC"THEN 3360
  335. 3350  INPUT " ENTER: Value of Resistance R.........................(ohms)";R
  336. 3360  IF CKT$="RL"THEN 3390
  337. 3370  INPUT " ENTER: Value of Capacitance C..........................(pF)";C
  338. 3380  C=C*10^-12
  339. 3390  IF CKT$="RC"THEN 3420
  340. 3400  INPUT " ENTER: Value of Inductance L...........................(>H)";L
  341. 3410  L=L*10^-6
  342. 3420  RETURN
  343. 3430  '
  344. 3440  '.....screen print
  345. 3450  VIEW PRINT 11 TO 24:CLS:VIEW PRINT:LOCATE 11
  346. 3460  PRINT " Frequency..............................<0x9F!>=";
  347. 3470  PRINT USING U$;F/10^6;:PRINT " MHz":F=0
  348. 3480  IF R=0 THEN 3510
  349. 3490  PRINT " Resistance.............................R=";
  350. 3500  PRINT USING U$;R;:PRINT " -":R=0
  351. 3510  IF C=0 THEN 3540
  352. 3520  PRINT " Capacitance............................C=";
  353. 3530  PRINT USING U$;C*10^12;:PRINT " pF":C=0
  354. 3540  IF L=0 THEN 3570
  355. 3550  PRINT " Inductance.............................L=";
  356. 3560  PRINT USING U$;L*10^6;:PRINT " >H":L=0
  357. 3570  IF XC=0 THEN 3600
  358. 3580  PRINT " Capacitive reactance..................Xc=";
  359. 3590  PRINT USING U$;XC;:PRINT " -":XC=0
  360. 3600  IF XL=0 THEN 3630
  361. 3610  PRINT " Inductive reactance...................Xl=";
  362. 3620  PRINT USING U$;XL;:PRINT " -":XL=0
  363. 3630  IF SIMP=0 THEN 3660
  364. 3640  PRINT " Series impedance......................Zs=";
  365. 3650  PRINT USING U$;SIMP;:PRINT " -":SIMP=0
  366. 3660  IF SPA=0 THEN 3690
  367. 3670  PRINT " Series phase angle....................*s=";
  368. 3680  PRINT USING U$;SPA;:PRINT "<UNK! {00F8}>":SPA=0
  369. 3690  IF PIMP=0 THEN 3720
  370. 3700  PRINT " Parallel impedance....................Zp=";
  371. 3710  PRINT USING U$;PIMP;:PRINT " -":PIMP=0
  372. 3720  IF PPA=0 THEN 3780
  373. 3730  PRINT " Parallel phase angle..................*p=";
  374. 3740  PRINT USING U$;PPA;:PRINT "<UNK! {00F8}>":PPA=0
  375. 3750  IF AV=0 THEN 3780
  376. 3760  PRINT " Applied voltage..........................";
  377. 3770  PRINT USING U$;AV;:PRINT " v.":AV=0
  378. 3780  IF V=0 THEN 3810
  379. 3790  PRINT " Voltage across circuit.................V=";
  380. 3800  PRINT USING U$;V;:PRINT " v.":V=0
  381. 3810  IF VR=0 THEN 3840
  382. 3820  PRINT " Voltage across resistor R.............Vr=";
  383. 3830  PRINT USING U$;VR;:PRINT " v.":VR=0
  384. 3840  IF VC=0 THEN 3870
  385. 3850  PRINT " Voltage across capacitance C..........Vc=";
  386. 3860  PRINT USING U$;VC;:PRINT " v.":VC=0
  387. 3870  IF VL=0 THEN 3900
  388. 3880  PRINT " Voltage across inductor L.............Vl=";
  389. 3890  PRINT USING U$;VL;:PRINT " v.":VL=0
  390. 3900  IF VS=0 THEN 3930
  391. 3910  PRINT " Voltage across series circuit..........V=";
  392. 3920  PRINT USING U$;VS;:PRINT " v.":VS=0
  393. 3930  IF VP=0 THEN 3960
  394. 3940  PRINT " Voltage across parallel circuit........V=";
  395. 3950  PRINT USING U$;VP;:PRINT " v.":VP=0
  396. 3960  IF A=0 THEN 3990
  397. 3970  PRINT " Current................................I=";
  398. 3980  PRINT USING U$;A;:PRINT " A.":A=0
  399. 3990  IF AS=0 THEN 4020
  400. 4000  PRINT " Current through series circuit.........I=";
  401. 4010  PRINT USING U$;AS;:PRINT " A.":AS=0
  402. 4020  IF AP=0 THEN 4050
  403. 4030  PRINT " Current through parallel circuit.......I=";
  404. 4040  PRINT USING U$;AP;:PRINT " A.":AP=0
  405. 4050  IF CVPA=0 THEN 4080
  406. 4060  PRINT " Current-voltage phase angle..........*cv=";
  407. 4070  PRINT USING U$;CVPA;:PRINT "<UNK! {00F8}>":CVPA=0
  408. 4080  IF W=0 THEN 4110
  409. 4090  PRINT " Power consumption......................P=";
  410. 4100  PRINT USING U$;W;:PRINT " watts":P=0
  411. 4110  IF LC=0 THEN 4170
  412. 4120  IF CKT$="RC"THEN 4130 ELSE 4150
  413. 4130  PRINT " Capacitance voltage lags behind V by.....";
  414. 4140  GOTO 4160
  415. 4150  PRINT " Inductance voltage leads V by............";
  416. 4160  PRINT USING U$;LC;:PRINT "<UNK! {00F8}>";:LC=0
  417. 4170  IF RES=0 THEN 4240
  418. 4180  IF CKT$="RC"THEN 4190 ELSE 4210
  419. 4190  PRINT " Resistance voltage leads V by............";
  420. 4200  GOTO 4220
  421. 4210  PRINT " Resistance voltage lags behind V by......";
  422. 4220  PRINT USING U$;RES;:PRINT "<UNK! {00F8}>";:RES=0
  423. 4230  '
  424. 4240  '.....end
  425. 4250  GOSUB 4280
  426. 4260  GOTO 80
  427. 4270  '
  428. 4280  'HARDCOPY
  429. 4290  GOSUB 4400:LOCATE 25,2:COLOR 14,6
  430. 4300  PRINT " Press 1 to print screen, 2 to print screen & ";
  431. 4310  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  432. 4320  Z$=INKEY$:IF Z$="3"THEN GOSUB 4400:RETURN
  433. 4330  IF Z$="1"OR Z$="2"THEN GOSUB 4400:GOTO 4350
  434. 4340  GOTO 4320
  435. 4350  FOR QX=1 TO 24:FOR QY=1 TO 80
  436. 4360  LPRINT CHR$(SCREEN(QX,QY));
  437. 4370  NEXT QY:NEXT QX
  438. 4380  IF Z$="2"THEN LPRINT CHR$(12)
  439. 4390  GOTO 4290
  440. 4400  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  441.